unit dmcadunico_unt;

interface

uses
  Forms, Controls,
  SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBQuery, IBStoredProc;

type
  TDMCADUnico_frm = class(TDataModule)
    IBQAutProcesso: TIBQuery;
    IBQAutProcessoDATAIMPORTACAO: TDateField;
    IBQAutProcessoHORAIMPORTACAO: TTimeField;
    IBQBloco: TIBQuery;
    IBQIdentificador: TIBQuery;
    IBQBuscaPref: TIBQuery;
    IBQBuscaPrefIDPREFEITURA: TIntegerField;
    IBQPrefeitura: TIBQuery;
    IBQTemp: TIBQuery;
    IBSPLinkDomicilio: TIBStoredProc;
    IBQBuscas: TIBQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMCADUnico_frm: TDMCADUnico_frm;

implementation

{$R *.dfm}

uses DMSistema_unt;

procedure TDMCADUnico_frm.DataModuleCreate(Sender: TObject);
begin
   try
      Screen.Cursor := crSQLWait;
      if (not DMSistema_frm.IBDataBaseSIGAS.Connected) then
      begin
         try
            DMSistema_frm.IBDataBaseSIGAS.Connected := True;
         except
         end;
      end;
   finally
      Screen.Cursor := crDefault;
   end;
end;

end.

